home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MAL ©P.f.Howden 1⁄1⁄89 / GRAPLOTS < prev    next >
Text File  |  1987-05-20  |  1KB  |  27 lines
  1. 1 CLEAR:CLS:PRINT"GRAPLOTS-MULTIDATA GRAPHING.USE PRINTER.":PRINT" O ON AXIS MEANS X=0.  < =OFFSCALE= >"
  2. 2 INPUT "NUMBER OF FUNCTIONS=";Q:PRINT"X  AXIS  APPLIES TO DATA  Y1.";
  3. 3 W=70:C1=INT(W/5):DIM M$(4),Y(Q),C(Q)
  4. 4 FOR J=1 TO C1:M$(0)=M$(0)+"v----":NEXT J:FOR J=1 TO W:M$(1)=M$(1)+"-":NEXT J
  5. 6 PRINT"DATA  Y  INPUTS BEST IF 2 DIGITS":FOR J=1 TO Q:PRINT"LOWEST  Y";J;"=";:INPUT A(J)
  6. 7 PRINT"UPPER Y";J;"=";:INPUT B:C(J)=ABS(B-A(J))
  7. 9 IF C(J)/C1-INT(C(J)/C1+.5)<>0 THEN C(J)=C(J)+1:GOTO 9
  8. 11 Y(0)=INT(-A(1)*C1*5/C(1)+.5)+1:IF Y(0)>W THEN Y(0)=W:GOTO 13
  9. 12 IF Y(0)<1 THEN Y(0)=1
  10. 13 NEXT J
  11. 15 INPUT "STARTING Xo=";X0:INPUT "X INCREMENT (+OR-)=";L:CLS:LPRINT"Xo=";X0;"   X INCREMENT=";L:X0=X0/ABS(L):REM PRINT->PRINTER
  12. 25 FOR N=1 TO Q:FOR J=1 TO INT(W/5):LPRINT TAB(4.4*(J-1));A(N)+(J-1)*C(N)/C1;:NEXT J:LPRINT:NEXT N:REM THIS->PRINTER
  13. 30 LPRINT M$(0):REM ->PRINTER
  14. 32 GOSUB 120
  15. 35 M$(2)=M$(1):Y=Y(0):V$="+"
  16. 40 GOSUB 100:IF X0<>X1 THEN  LPRINT M$(2):X0=X0+SGN(L):GOTO 35:REM ->PRINTER
  17. 45 FOR J=1 TO Q
  18. 50 Y=INT(Y(J)-A(J))*5*C1/C(J)+1:IF Y>W THEN V$=">":Y=W:GOTO 70
  19. 55 IF Y<1 THEN V$="<":Y=1:GOTO 70
  20. 60 V$=CHR$(J+48)
  21. 70 GOSUB 100:NEXT J:LPRINT M$(2):X0=X0+SGN(L):GOTO 32:REM ->LPRINTER
  22. 100 IF X0=0 THEN V$="O"
  23. 101 M$(3)=LEFT$(M$(2),Y-1):M$(4)=MID$(M$(2),Y+1,W-Y):M$(2)=M$(3)+V$+M$(4):RETURN
  24. 120 INPUT "DATA INPUT:  X=";X1:X1=X1/ABS(L):IF SGN(L*(X1-X0))<0 THEN PRINT"ERROR:RE-ENTER":GOTO 120
  25. 124 FOR J=1 TO Q:PRINT" Y";J;"=";:INPUT Y(J):NEXT J:RETURN
  26.          MACINTOSH COMPUTER
  27.